home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Telecommunications / Updates⁄New / MicroPhone 2 Scripts / ChatMP2 / OutScroll < prev    next >
Encoding:
Text File  |  1988-06-07  |  1002 b   |  26 lines  |  [TEXT/ttxt]
  1.  Settings File = TestBed
  2.  Script Name = OutScroll
  3.  Command Key = 
  4.  F-key = 
  5.  Menu = NO
  6.  Button = NO
  7.  
  8. 1   Remark "This script creates the 'keyboard' region, and"
  9. 2   Remark "installs the cursor in it."
  10. 3   Remark "====================================="
  11. 4   Remark "Record the postion of the cursor in the "
  12. 5   Remark "'conversation' region."
  13. 6   Remark "====================================="
  14. 7   Set Variable inCursRow from Expression  "=CURSORROW"
  15. 8   Set Variable inCursCol from Expression  "=CURSORCOL"
  16. 9   Remark "====================================="
  17. 10  Remark "Now create the 'keyboard' scroll region."
  18. 11  Remark "====================================="
  19. 12  Send Local to Screen  "^[[22;24r"
  20. 13  Remark "====================================="
  21. 14  Remark "Now move the cursor to its last recorded position"
  22. 15  Remark "in the 'keyboard' region."
  23. 16  Remark "====================================="
  24. 17  Move Cursor to Absolute row  "=outCursRow"
  25. 18  Move Cursor to Absolute column  "=outCursCol"
  26.